10 REM *** SUBLIMINAL FLASH! **** 20 REM ** RICK ANDING-ATLANTA *** 25 REM *MAY BE COPIED OR ALTERED, 30 REM *BUT NOT SOLD FOR PROFIT 40 GOSUB 9000 50 POKE 53280,6:POKE 53281,6:POKE 646,3 60 DATA "S","U","B","L","I","M","I","N","A","L"," ","F","L","A","S","H" 65 DATA" DOG "," HOUSE "," BABY ","HAIRSPRAY" 70 DATA" PENCIL "," TRUCK ","COMPUTER "," PICTURE " 75 DATA"TELEPHONE"," LIGHT "," CAT "," WATCH " 80 DATA" BOOK "," PAPER "," LISTEN "," MOTHER " 85 DATA" TOY "," CIGAR "," BATTERY "," NAPKIN " 90 DATA" SHIRT "," BLUE "," ZEBRA "," WALK " 95 DATA" SLEEP "," MOON "," ROAD "," SMILE ","XXX" 98 READ W$ 100 PRINT"[147]":FOR X=1 TO 1000:NEXT 105 PRINT:PRINT 110 PRINT TAB(10)"SUBLIMINAL FLASH" 115 PRINT 120 PRINT"THIS PROGRAM IS AN INDIVIDUAL TEST TO 125 [153]"SEE HOW RAPIDLY A WORD CAN BE FLASHED 130 PRINT"ON THE SCREEN, THEN OFF AGAIN, AND 135 [153]"STILL BE READ AND RECOGNIZED BY THE 140 PRINT"INDIVIDUAL BEING TESTED. 150 [153] 160 [153]"THE FLASHED WORDS CAN BE DISPLAYED 165 PRINT"FOR DIFFERENT TIME INTERVALS, SELECTED 170 [153]"BY TYPING IN ONE OF THE NUMBERS 1 175 PRINT"THROUGH 9, WITH 1 BEING THE SHORTEST" 180 PRINT"DISPLAY DURATION, AND 9 BEING THE 185 [153]"THE LONGEST. 190 PRINT:PRINT"YOU WILL BE ABLE TO SEE EITHER A NEW 192 [153]"WORD OR REDISPLAY THE LAST WORD AFTER 193 PRINT"EACH TRY, AND HAVE THE CHANCE TO VARY 194 [153]"THE DISPLAY TIME INTERVAL EACH TIME. 195 PRINT:PRINT"WHEN YOU'RE READY, PRESS THE SPACE BAR. 196 [161] A$ 197 [139] A$[178]"" [137] 196 198 [139] A$[179][177][199](32)[137] 196 200 [143]**** BUILD DISPLAY SCREEN*** 205 [129] X[178]1 [164] 10:[130] 210 [153]"LOAD":[129] X[178]1 [164] 1000:[130] 220 [153]:[153]:[153] 225 [153] [163]11)" ANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND 230 PRINT TAB(11)"[170][205][175][175][175][175][175][175][175][175][175][175][175][175][175][206][180] 240 [153] [163]11)"+ SGN + SGN 250 PRINT TAB(11)"[170] [180] [170] [180] 260 [153] [163]11)"+ SGN + SGN 270 PRINT TAB(11)"[170][206][183][183][183][183][183][183][183][183][183][183][183][183][183][205][180] 275 [153] [163]11)" USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR 280 PRINT 290 PRINT" A- DISPLAY LAST WORD 300 [153]" B- NEW WORD 310 PRINT" C- QUIT 320 [153]:[153] [163]6)"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND" 330 [153] [163]6)"SGN1..2..3..4..5..6..7..8..9+" 340 [153] [163]6)"SGN +" 350 [153] [163]6)"SGNFASTER TIME SLOWER TIME+" 360 [153] [163]6)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 370 [133]" WHICH WORD? A, B, OR C";J$ 380 [139] J$[178]"A" [137] 400 390 [139] J$[178]"C" [137] 8999 395 [135] W$ 400 [153]"ON " 405 [129] X[178]1 [164] 500:[130] 408 [139] W$[178]"XXX" [137] 800 410 [133]"ONHOW FAST? 1 THROUGH 9";S 420 [145] S [141] 900,910,920,930,940,950,960,970,980 430 [129] C[178]3 [164] 1 [169][171]1 440 [153]"" 450 [153] [163]255)" STOP";C;"OPEN" 460 [129] X[178]1 [164] 300:[130] X 470 [130] C 480 [153]"" 490 [153] [163]255)W$ 500 [129] X[178]1 [164] D:[130] X 510 [153] [163]15)"ON " 515 [129] X[178]1 [164] 1000:[130] X 520 [153]"" 530 [153]:[153]" " 540 [153]"ONON" 550 [137] 370 800 [153]"ON ALL WORDS USED!" 899 [128] 900 D[178]3:[142] 910 D[178]10:[142] 920 D[178]17:[142] 930 D[178]24:[142] 940 D[178]32:[142] 950 D[178]40:[142] 960 D[178]48:[142] 970 D[178]56:[142] 980 D[178]64:[142] 8999 [128] 9000 [151] 53280,7:[151] 53281,7:[153]"LOAD" 9002 [129] X[178]1 [164] 1000:[130]:[151] 646,6 9003 [143]* LINE RIGHT * 9005 [129] X[178]1 [164] 39 9010 [153]"SIN"; 9015 [129] Y[178]1 [164] 10:[130] Y 9020 [130] 9028 [143]* LINE DOWN * 9030 [129] X[178]1 [164] 22 9040 [153] [163]40)"CMDCMDSIN" 9050 [129] Y[178]1 [164] 10:[130] Y 9060 [130] X 9068 [143]* LINE LEFT * 9070 [129] X[178]1 [164] 39 9080 [153]"CMDCMDSIN"; 9090 [129] Y[178]1 [164] 10:[130] Y 9095 [130] X 9096 [153]"CMDSINCMD"; 9098 [143]* LINE UP * 9100 [129] X[178]1 [164] 21 9110 [153] "ONSINON" 9120 [129] Y[178]1 [164] 10: [130] Y 9130 [130] X 9140 [129] D [178]1 [164] 350:[130] 9160 [153] [163]204)"SIN"; 9170 [129] X[178]1 [164] 28 9175 [153] "SIN"; 9180 [129] Y[178]1 [164] 10:[130] Y 9190 [130] X 9195 [153]"SIN" 9200 [153] [163]33)"SIN" 9210 [153] [163]33)"SIN" 9220 [153] [163]33)"SIN" 9230 [153] [163]33)"SIN"; 9240 [129] X[178]1 [164] 30 9250 [153]"CMDSINCMD"; 9255 [129] Y[178]1 [164] 10: [130] Y 9260 [130] X 9270 [129] X[178]1 [164] 3 9280 [153] "ONSINCMD"; 9290 [129] Y[178]1 [164] 10:[130] 9300 [130] X 9305 [129] X[178]1 [164] 350:[130] 9310 [153] [163]46)" ANDING'S NOODLE PRESENTS" 9315 [129] X[178]1 [164] 1000:[130] 9320 [153] [163]252)" " 9330 [153] [163]11)"*CMD"; 9335 [129] J[178]1 [164] 16 9340 [129] X[178]1 [164] 10 9350 [153]" *CMD"; 9360 [129] Y[178]1 [164] 5:[130] Y 9370 [130] X 9375 [153]"CMD* CMD"; 9380 [129] X[178]1 [164] 9 9390 [153]"CMDCMD* CMD"; 9400 [129] Y[178]1 [164] 5:[130] Y 9410 [130] X 9415 [135] A$ 9416 [153]"CMDON";A$;:[153]""; 9420 [130] J 9425 [129] Y[178]1 [164] 200:[130] 9430 [153] [163]58)"*":[129] Y[178]1 [164] 150:[130] 9440 [153] [163]18)"*":[129] Y[178]1 [164] 150:[130] 9450 [153] [163]18)"*":[129] Y[178]1 [164] 150:[130] 9460 [153] [163]18)"*":[129] Y[178]1 [164] 150:[130] 9470 [153] [163]18)"*":[129] Y[178]1 [164] 2000:[130] 9480 [142]